home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / smiley2c.zip / SMILEY.BAS next >
BASIC Source File  |  1993-02-17  |  10KB  |  278 lines
  1. CLS
  2.     RANDOMIZE TIMER
  3.     c% = INT(RND * 10) + 1
  4. COLOR c%
  5. PRINT STRING$(5, 1)
  6. PRINT STRING$(1, 1)
  7. PRINT STRING$(5, 1)
  8. PRINT "    ";
  9. PRINT STRING$(1, 1)
  10. PRINT STRING$(5, 1);
  11. PRINT "MILEY FACE ARENA"
  12. PRINT
  13. PRINT "Created By: Anthony Maniscalco"
  14.     ON PLAY(3) GOSUB Background
  15.     PLAY ON
  16.     Music$ = "MBo3L8ED+ED+Eo2Bo3DCL2o2A"
  17.     PLAY Music$
  18.     LOCATE 2, 1
  19.     DO WHILE INKEY$ = "": LOOP
  20.     END
  21.  
  22. Background:
  23.         i% = i% + 1
  24.         LOCATE 1, 1: PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
  25.         PLAY Music$
  26.     RANDOMIZE TIMER
  27.     c% = INT(RND * 10) + 1
  28.     COLOR c%
  29. INPUT "Please enter your name. ", A$
  30. CLS
  31.     RANDOMIZE TIMER
  32.     c% = INT(RND * 10) + 1
  33.     COLOR c%
  34. PRINT "The object of the game is to win 3 face-offs in the Smiley Face Arena."
  35. PRINT "Your energy level is 5.  If your energy level decreases to 0, you will"
  36. PRINT "wear a frown, as you are eliminated from the arena."
  37. INPUT "Please press enter to start the game. ", B$
  38. CLS
  39.     'Play scale in 7 different octaves
  40.     scale$ = "CDEFGAB"
  41.     PLAY "L16"
  42.     FOR i% = 0 TO 6
  43.         PLAY "O" + STR$(i%)
  44.         PLAY "X" + VARPTR$(scale$)
  45.     NEXT i%
  46. PRINT STRING$(80, 2)
  47. PRINT STRING$(1, 2);
  48. PRINT "                                                                              ";
  49. PRINT STRING$(1, 2)
  50. PRINT STRING$(1, 2);
  51. PRINT "                                                                              ";
  52. PRINT STRING$(1, 2)
  53. PRINT STRING$(1, 2);
  54. PRINT "                                                                              ";
  55. PRINT STRING$(1, 2)
  56. PRINT STRING$(1, 2);
  57. PRINT "                                 Face-Off 1                                   ";
  58. PRINT STRING$(1, 2)
  59. PRINT STRING$(1, 2);
  60. PRINT "                                                                              ";
  61. PRINT STRING$(1, 2)
  62. PRINT STRING$(1, 2);
  63. PRINT "                                                                              ";
  64. PRINT STRING$(1, 2)
  65. PRINT STRING$(1, 2);
  66. PRINT "                                                                              ";
  67. PRINT STRING$(1, 2)
  68. PRINT STRING$(80, 2)
  69. PRINT
  70. PRINT "At the command prompts input: (1)Frown, (2)Grimace, or (3)Smirk."
  71. e = 0
  72. f = 0
  73. 1   RANDOMIZE TIMER
  74.     d% = INT(RND * 3) + 1
  75. PRINT STRING$(1, 1);
  76. INPUT " ", g
  77. IF g = d% THEN PRINT "You ";
  78. IF g = d% THEN IF g = 1 THEN PRINT "frown at your opponent.": e = e + 1
  79. IF g = d% THEN IF g = 2 THEN PRINT "grimace at your opponent.": e = e + 1
  80. IF g = d% THEN IF g = 3 THEN PRINT "smirk at your opponent.": e = e + 1
  81. IF e = 3 THEN GOTO 2
  82. IF g = d% THEN GOTO 1
  83. IF g = 1 THEN PRINT "You frown at your opponent, but he viciously frowns back!": f = f + 1
  84. IF g = 2 THEN PRINT "You grimace at your opponent, but he wickedly grimaces back!": f = f + 1
  85. IF g = 3 THEN PRINT "You smirk at your opponent, but he maliciously smirks back!": f = f + 1
  86. IF f = 5 THEN PRINT "You have lost all of your energy and are eliminated from the"
  87. IF f = 5 THEN PRINT "the arena.  Thank you for playing, and remember, Smile!": END
  88. GOTO 1
  89. 2 PRINT "Congratulations!  You have won Face-Off 1!  You will now play a bonus"
  90. PRINT "game or you may choose to quit: (R)oll the dice; (Q)uit."
  91. PRINT STRING$(1, 1);
  92. INPUT " ", h$
  93. IF h$ = "Q" THEN END
  94.     RANDOMIZE TIMER
  95.     x% = INT(RND * 6) + 1
  96. PRINT "The dice roll is "; x%; "."
  97. IF x% = 1 THEN PRINT "You win 1 energy block!": f = f - 1
  98. IF x% = 2 THEN PRINT "You win 2 energy blocks!": f = f - 2
  99. IF x% = 3 THEN PRINT "You win 1 energy block!": f = f - 1
  100. IF x% = 4 THEN PRINT "You win 2 energy blocks!": f = f - 2
  101. IF x% = 5 THEN PRINT "You win praise from the Happy Face Crowd!"
  102. IF x% = 6 THEN PRINT "You win praise from the Happy face Crowd!"
  103. INPUT "Please press enter to begin Face-Off 2. ", i$
  104. CLS
  105. e = 0
  106. COLOR 2
  107.     'Play scale in 7 different octaves
  108.     scale$ = "BAGFEDC"
  109.     PLAY "L16"
  110.     FOR i% = 0 TO 6
  111.         PLAY "O" + STR$(i%)
  112.         PLAY "X" + VARPTR$(scale$)
  113.     NEXT i%
  114. PRINT STRING$(80, 2)
  115. PRINT STRING$(1, 2);
  116. PRINT "                                                                              ";
  117. PRINT STRING$(1, 2)
  118. PRINT STRING$(1, 2);
  119. PRINT "                                                                              ";
  120. PRINT STRING$(1, 2)
  121. PRINT STRING$(1, 2);
  122. PRINT "                                                                              ";
  123. PRINT STRING$(1, 2)
  124. PRINT STRING$(1, 2);
  125. PRINT "                                 Face-Off 2                                   ";
  126. PRINT STRING$(1, 2)
  127. PRINT STRING$(1, 2);
  128. PRINT "                                                                              ";
  129. PRINT STRING$(1, 2)
  130. PRINT STRING$(1, 2);
  131. PRINT "                                                                              ";
  132. PRINT STRING$(1, 2)
  133. PRINT STRING$(1, 2);
  134. PRINT "                                                                              ";
  135. PRINT STRING$(1, 2)
  136. PRINT STRING$(80, 2)
  137. PRINT
  138. PRINT "At the command prompts input: (1)Frown, (2)Grimace, or (3)Smirk."
  139. 3   RANDOMIZE TIMER
  140.     d% = INT(RND * 3) + 1
  141. PRINT STRING$(1, 1);
  142. INPUT " ", g
  143. IF g = d% THEN PRINT "You ";
  144. IF g = d% THEN IF g = 1 THEN PRINT "frown at your opponent.": e = e + 1
  145. IF g = d% THEN IF g = 2 THEN PRINT "grimace at your opponent.": e = e + 1
  146. IF g = d% THEN IF g = 3 THEN PRINT "smirk at your opponent.": e = e + 1
  147. IF e = 3 THEN GOTO 4
  148. IF g = d% THEN GOTO 3
  149. IF g = 1 THEN PRINT "You frown at your opponent, but he viciously frowns back!": f = f + 1
  150. IF g = 2 THEN PRINT "You grimace at your opponent, but he wickedly grimaces back!": f = f + 1
  151. IF g = 3 THEN PRINT "You smirk at your opponent, but he maliciously smirks back!": f = f + 1
  152. IF f = 5 THEN PRINT "You have lost all of your energy and are eliminated from the"
  153. IF f = 5 THEN PRINT "the arena.  Thank you for playing, and remember, Smile!": END
  154. GOTO 3
  155. 4 PRINT "Congratulations!  You have won Face-Off 2!  You will now play a bonus"
  156. PRINT "game or you may choose to quit: (R)oll the dice; (Q)uit."
  157. PRINT STRING$(1, 1);
  158. INPUT " ", h$
  159. IF h$ = "Q" THEN END
  160.     RANDOMIZE TIMER
  161.     x% = INT(RND * 6) + 1
  162. PRINT "The dice roll is "; x%; "."
  163. IF x% = 6 THEN PRINT "You win 1 energy block!": f = f - 1
  164. IF x% = 5 THEN PRINT "You win 2 energy blocks!": f = f - 2
  165. IF x% = 4 THEN PRINT "You win 1 energy block!": f = f - 1
  166. IF x% = 3 THEN PRINT "You win 2 energy blocks!": f = f - 2
  167. IF x% = 2 THEN PRINT "You win praise from the Happy Face Crowd!"
  168. IF x% = 1 THEN PRINT "You win praise from the Happy face Crowd!"
  169. INPUT "Please press enter to begin Face-Off 3. ", i$
  170. CLS
  171. COLOR 3
  172.     'Play scale in 7 different octaves
  173.     scale$ = "CEDFEGFAGBACB"
  174.     PLAY "L16"
  175.     FOR i% = 0 TO 6
  176.         PLAY "O" + STR$(i%)
  177.         PLAY "X" + VARPTR$(scale$)
  178.     NEXT i%
  179. PRINT STRING$(80, 2)
  180. PRINT STRING$(1, 2);
  181. PRINT "                                                                              ";
  182. PRINT STRING$(1, 2)
  183. PRINT STRING$(1, 2);
  184. PRINT "                                                                              ";
  185. PRINT STRING$(1, 2)
  186. PRINT STRING$(1, 2);
  187. PRINT "                                                                              ";
  188. PRINT STRING$(1, 2)
  189. PRINT STRING$(1, 2);
  190. PRINT "                                 Face-Off 3                                   ";
  191. PRINT STRING$(1, 2)
  192. PRINT STRING$(1, 2);
  193. PRINT "                                                                              ";
  194. PRINT STRING$(1, 2)
  195. PRINT STRING$(1, 2);
  196. PRINT "                                                                              ";
  197. PRINT STRING$(1, 2)
  198. PRINT STRING$(1, 2);
  199. PRINT "                                                                              ";
  200. PRINT STRING$(1, 2)
  201. PRINT STRING$(80, 2)
  202. PRINT
  203. e = 0
  204. PRINT "At the command prompts input: (1)Frown, (2)Grimace, or (3)Smirk."
  205. 5   RANDOMIZE TIMER
  206.     d% = INT(RND * 3) + 1
  207. PRINT STRING$(1, 1);
  208. INPUT " ", g
  209. IF g = d% THEN PRINT "You ";
  210. IF g = d% THEN IF g = 1 THEN PRINT "frown at your opponent.": e = e + 1
  211. IF g = d% THEN IF g = 2 THEN PRINT "grimace at your opponent.": e = e + 1
  212. IF g = d% THEN IF g = 3 THEN PRINT "smirk at your opponent.": e = e + 1
  213. IF e = 3 THEN GOTO 6
  214. IF g = d% THEN GOTO 5
  215. IF g = 1 THEN PRINT "You frown at your opponent, but he viciously frowns back!": f = f + 1
  216. IF g = 2 THEN PRINT "You grimace at your opponent, but he wickedly grimaces back!": f = f + 1
  217. IF g = 3 THEN PRINT "You smirk at your opponent, but he maliciously smirks back!": f = f + 1
  218. IF f = 5 THEN PRINT "You have lost all of your energy and are eliminated from the"
  219. IF f = 5 THEN PRINT "the arena.  Thank you for playing, and remember, Smile!": END
  220. GOTO 5
  221. 6 PRINT
  222. PRINT "Congratulations!  You have won all three Face-Offs in the Smiley Face"
  223. PRINT "Arena!  As your fellow happy faces lift you off the ground, joyfully"
  224. PRINT "throwing you up and down in the air, they chant 'Champion!'"
  225.     'Play scale in 7 different octaves
  226.     scale$ = "CDEFGABAGFEDC"
  227.     PLAY "L16"
  228.     FOR i% = 0 TO 6
  229.         PLAY "O" + STR$(i%)
  230.         PLAY "X" + VARPTR$(scale$)
  231.     NEXT i%
  232. INPUT "Please press enter. ", Winner$
  233. CLS
  234. PRINT STRING$(5, 1)
  235. PRINT STRING$(1, 1)
  236. PRINT STRING$(1, 1)
  237. PRINT STRING$(1, 1)
  238. PRINT STRING$(5, 1);
  239. PRINT "ONGRATULATIONS!"
  240. PRINT
  241. PRINT "Looking for a superb game?  Try Cosmic.zip (Cosmic's Adventure) at your"
  242. PRINT "local BBS today!"
  243. PRINT "Thanks you for playing and remember to SMILE!"
  244. END
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.